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Well here we are again, 2 hope that the weather Is better 
there than it ia here. I am getting tired of thi* liquid sun- 
shine. 

So nobody will wonder what is happening, the June issue 
will be mailed early because of the need to take a VACATION 
around this old place. This means we will also be delayed in 
shipping any orders and replying to any letters so please hold 
on. We should be back by the middle of June. Also most of the 
JUNE issue will be devoted to printing programs that we have 
received from the MEMBERS. 

F=’r-'com V- 

What is the Micro Processing unit speed???? 

Ok, here it comes. The basic speed of the CPU<68l2K?) is 
1.117 micro seconcs per cycle. A cycle is composed of a phase 
01 and 02 clock. The CPU uses from 2 to 12 of these cycles to 
execute each of it*B MACHINE LANGUAGE instructions. Then it 
puts these MACHINE LANGUAGE instructions togeather to run 
BASIC. 

tttt*tt*t***tim$ttlHt«**t*t***M9**t**t%***t***tttttt*t$tt*'ii!.**t** 
ps-t-om U^Il_BE:SR-r 

Does anyone have a program that will change an already made 
BASIC program, into a Machine Language program???? 

Right now 1 don't know of any that are available for the IM-i, 

If any of the members know of one let me know and I will pub— 

1 Ish the info. 

t:»ttt*tt*tt$*%tt***t*******i(*M1(*1Htttt*ttt'$t**»:**tV^t*tt*t$t*$*t*t* 
BOB O^FSDfMEIR r- _ 

Is there aa way to make the program automatically RUN after 
you load it????? 

No. . . . 

Is there a way to disable the BREAK key so that a program 
can't be interupted????? 

Only if the program is written in MACHINE LANGUAGE.... 
»ttttt*tt»tt*t»i*ttt*t*t**t*t*$Mt*tt.*tti**t«***ii***ttt*ttt*ttt9*'i«** 
a Bl— 

One question on ycur service of taping programs on tape we 
furnish^ specifically with respect to the HIGH RESOLUTION 
Helper program. Is it necessary <or adviseable) to go through 
each program in order????? 

First off on the programs that we have, we furnish the tapes for 
them. Next the HI RES Helper programs don't have to be run 
togeather. They are just demo programs to give the beginning 
programmer some help with HI RES.... 

■/.7.7.V.*/.7.‘/.7.7.y.7.7.7.%y.y-7.y.7.7.%7.*/.y.7.7.y.7.7.y.7.y.%y.7.y.%%7.7.7.7.7.7.y.7.7.y.7.7.7.7.7.V.7.7.7.7.7.7.7.7.7.y. 
For those that are interested we are doing the NEWS LETTER 
with a program written by one of the members, Jim Ciatfelter, 

BO far it seems to be a very good program which is easy to run. 

F^r-com X as 

DISK USERS: can't RUN that program by chaining (ie '100 RUN 
"NEXT PROG'”)? Getting errors when you do this? A fix given 
to me was: POKE 4 1009, PEEK (41984) & POKE 41010, PEEK(4I985> , 
this resets the DIM pointers to the End of Program...... 


hUiy 19&: 
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Sorne^mor-ca -fr'csm I_i>:^LJZS 30L-DLJ0 

7-When all this has been completed;, the file is saved and you 

are back in BASIC. 

<NotesTr.e APFDOS doesn’t peeform a verification of the 
information being written ether than a cyclic redundancy 
check. > 

When you kill a file^ here’s what’s going ons 

1- The computer reads the FCB of the file to be killed, to get 
the FSAT sector and track, then it reads the FSAT to get 
all the sectors used by the file. 

2- It goes back in the directory and erases the FCB by moving 
up all the following FCBs. 

3- The computer goes in the SAT and resets the sectors used 
fay the f i le. 

C::amplesif the FSAT was containing 01 08 01 07 01 05 01 02 
and byte 1 of the GAT was containing 11111011, after 
killing, the byte 1 of the SAT will contain 00101001. 

4- The computer doesn’t erase anything on the disk except the 
FCB in the directory. 

When you load a file, here’s what’s going on: 

1- The computer reads the FCB of the file to be loaded, to get 

the FSAT sector and track, then it reads the FSAT to get 
all the sectors used by the file. 

2- The sectors are read and put iti the memory in the order 
given by the FSAT.. 

-For*- mesn-tf-*- 

ttttfSittttttttttttttttttttnttittttttttttttttittttttttttttttttuit 

3B#=%SI£Z BrOX BOX 

Here is a trick I saw in one of the programs sent in. 

This can be used in place of the ON X GOTO . 

GOTO 2 » 1000 or GOTO 2 + 1000 = With these two ways of 
setting up the GOTO command you can get more options than with 
the ON X SOTO corarriand. This metfiod also works with the 
GOSUB command. 

Here is a short program to help you. 

100 INFUT''value",Z 
200 GOSUB Z * 1000 
1000 PRINT" YOU HIT I" 

1010 RCTURN 

2000 rniNT'’YOU HIT 2" 

2010 RCTURN 

3000 rR:NT’'YOU HIT 3" 

3010 RCTURN 

For those programmers that have run into the problem of needing 
to fi.ake a line in your program longer than the 128 character 
restr iction, here is a way. Use the EDIT to expand the line. 

Keyin ttjc line i}, Command tie PRINT), and the last portion of 
the lifie. TIien using the EDIT command start inserting the rest 
of the line. 

EXAMPLL: Here is the line I want:: 

1000 PRINT^^1;DA$ !2, 1) ,DE» (2, 1 ) ,CHS (Z , 1 ) , AM ( Z ) , TO ( Z> , SU < Z) , MA (Z) 
,EU2>,G1<Z),RF(Z),IN(Z>,0U<2),DA$(Z+1,1>,DE*(Z+1,1),CH*<Z+1,1), 
AMCZ+l) ,T0 :2-4 1) ,SU(2 + 1) ,MA{Z+n ,E1 (Z + 1) ,Gl<2 + i) ,RP<2+1) , IN(2 + 1) , 
DU<Z+1) 

KCYIN; 1000 PR:NT#1|DA* (Z+1 , 1) ,DE$ (2+1, 1 ) ,CH« (2+1, 1) , AM(Z+i) , 
TO(Z-r 1) , GU(2^ 2) ,MA (2 + 1) , El ( Z + 1 ) , G1 (2 + 1 ) , RP (Z + 1 ) , IN (Z+1 ) , 0U<2+1 ) 
THEN: EDIT10001: 1; Cl jDA$ (2, 1) .DE* (Z, 1) . CH$ ( Z , 1 ) , AM (Z) , TO < 2 ) , SU <Z> 

,MA(Z) ,C1 CZ) ,G1 (Z) ,Rr(2) , IN(Z> ,0U(2) , 

This shiould help, but practice with smaller lines first. 
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c^jji zfo.N- iCfo-N- 

Here are a couple ov routines -for those MACHINE LANGUAGE prog- 
rammers out there. 

1 . . . . . BCD to HEX (Binary coded decimal to Hex i deci mal ) 

This will convert bed numbers -from value (3000 to 9999 to Hex. 
A0A7= Upper half of BCD value 
A0A8® Lower half of BCD value 
JSR 906D 

A0A7= Upper half of HEX value 
A0AS= Lower half of HEX value 

2. . . .HEX to BCD 

This routine converts a HEX value (00 to FF> to BCD- 
Clear $A0A7 S< *A0AS first 
A029= Hex value input 
JSR 99AD 

A0A7 S< A0AB= Bed value 

******* 

R'r-om i 

Larry sent in an easier method of saving screens while saving 
programs. 

1. Type the following- 1 CALL 17046: POKE 40960, 0: PDKE40961 , 0; 
cload|,> and hit 'RETURN. 

2. Now type 'RUN'. The screen will go blank. 

3. Now you may insert the tape with the program that you want to 
save, press play button on the recorder, and hit 'RETURN'. The 
program will load into the IM-1. 

4. When the program is loaded and th tape/sound quits, remove the 
tape and insert a blank tape, press the play button, type 'CSAVE' 
hit 'RETURN’ and the program will now save on the tape and the 
front screen will be saved or the 'CSAVE' instructions will not 
be on the screen. 

What the short program does is simple, it puts the cursor off the 
screen and the instructions are not visable. 


###################################### 4 ^#######^##########^###### 
l-fev' -FoiS-cs, o-F -tt-s-si-t cold 

SF*<s=iC:E DESTFRCOYEF^S , well £“>er-e 
ecome ceJ-iaanges -F an— -tclrie 
CALL 28672 (MONITOR) AND MAKE THE FOLLOWING CHANGES AND EIMJaV 

1 $A696 FROM 7F TO IF 

$AA34 FROM 7F TO IF 

2 START AT «B028 AND KEYIN THE FOLLOWING 

44 2c 4d 12 6e 2b 20 12 13 


Hope this spices up your lifes a little. 


0 REM “LEDGER PfflDGRAM FOR CLUB MEMBERS FROM EDITOR" 

1 REM “IF THIS PROGRAM IS USED ON 0K MACHINES THEN LINES 4,5p&120« NEED TO BE 

CHANGED. . . “ 

2 CLOSE I 

Z DIM NULLf (10>,SA«(24>^TAL<B) 

4 DIM El (99) ,G1 (99),FN«(6) ,De» <99, 24) , DA* (99, &> , CH* <99, A) 

5 DIM AM(99),DP<99),ME<99>,0T(99>,SU<99>,MA(99) 
h GOTO 200 

10 SAtxDA* (LL, 1 > : DA* (LL, 1 > -DA* (LL-1 » 1 ) l DA* (LL-l , 1 > -SA* 

11 SA*»DE*(LL, 1) *D£*(LL, l)-De*<LL-», 1) lDE*<LL-l, 1)-SA* 

12 SA*-CH* (LL, 1 ) I CH* (LL, 1 ) »CH* (LL-1 pi)t CH* (LL-1 , 1 ) -9A* 

13 Z-DP<LL) * DP (LL) -DP iLL-1): DP (LL-1 >-Z>Z-ME(LL> sME<LL) -ME (LL-1 ) 8 ME (LL-I ) -Z 

14 2-OT<LL) JQT(LL)-QT<LL-1> iOT<LL-l)“2lZ»SUCLL) 8SU<LL)»SU(LL-1 )sSU<LL-1>-Z 

15 Z-MA<LL>3MA(LL)-MA<LL-l)lMA(LL-i)»2iZ«£l<LL>#El <LL)«E1 (LL-1 ) * El <LL-1 > -Z 

16 Z»ei (LDiQi (LL)-Gl(LL-l>xGl (LL-i)-Z 

17 RETURN 

20 POKE 40960, INT XCU/256) i POKE 40961fCU'* INT (CU/256) *256i RETURN 

30 DIR » PRINT I PRINT “FILE NAME » -sFN*t INPUT “OK (l-Y 2-N>-,28 ON 2 GOTO 32 
,31 

31 FN*«NULL*; INPUT "FILE NAME'*,FN*J CALL 17046i GOTO 30 

32 RETURN 

40 GOSUB 301 OPEN 1FN«8 READ #l|Li FOR Z-0 TO L 

41 READ *1)DA*(Z, U , D£« (Z, 1 ) ,CH* < Z, 1 ) , AM ( Z ) , DP <Z ) , ME < Z) , OT ( Z) , 9U < Z ) . MA < Z) , £1 (Z) 
,G1 (Z) 


44 

NEXT i 

CLOSE 

ll GOTO 200 


50 

GOSUB 

301 OPEN 1FN*I PRINT «l|Ls 

FDR 1-0 TO L 

SI 

PRINT 

41:DA*<Z, 1>,DE*(Z, 1) .CH«<Z, 

, 1) ,AM<Z) ,DP(2) ,ME<2>,OT<Z>,SU<Z) ,MA(Z) .El tZ 

) ,G1 <Z> 




52 

NEXT a 

i CLOSE 

l8 GOTO 200 


60 

PRINT 

“DATE 

"|I>A«(1, 1) 8 

PRINT “DE3CRIPITI0N “|DE*<I,l)i PRINT "CHE 

CK 


«-|CH*(l, 1) 


62 

PRINT 

USING 

“AMOUNT ft*<ii«44i.«« 

",AM(I) 

64 

PRINT 

USING 

“SALES **«#«».«« 

" , OP ( 3 ) 

66 

PRINT 

USING 

“DUES «««*#*. «» 

-,ME(I> 

68 

PRINT 

USING 

“REPAIR *««««*.«« 

“ , GT ( I > 

70 

PRINT 

USING 

“OFF SUPS 

“ , SU ( I > 

72 

PRINT 

USING 

“INV PUR ««*•««.«• 

” , MA ( I ) 

74 

PRINT 

USING 

“PARTS *»###•.•» 

“,E1 (I) 

76 

PRINT 

USING 

“GENERALI ««#«««.«• 

",Q1 (I) 

80 

RETURN 




100 s**##*#.*# »•###».#• *•»«#•.•• «*##««.«# «•«#««. #4 «**#««.«« **44«tt.#« 
tt.«» 

200 CALL 170461 CU-5201 GOSUB 208 PRINT “1. ENTER DATA" 


220 

CU-5521 

GOSUB 201 

PRINT 

"2. 

EDIT 

DATA" 

230 

cu-se48 

GOSUB 201 

PRINT 

“3- 

DISPLAY DATA" 

240 

CU-6168 

GOSUB 201 

PRINT 

“4. 

PRINT DATA" 

250 

CU-6481 

GOSUB 20t 

PRINT 

"5. 

READ 

FILE FROM DISC' 

260 

CU-6808 

GOSUB 208 

PRINT 

"6. 

WRITE FILE ON DISC" 

270 

CU=712l 

GOSUB 201 

PRINT 

"7. 

TAPE 

SAVE" 

275 

CU»744a 

GOSUB 208 

PRINT 

" 8 . 

SORT 

FILE- 

280 

INPUT 

“CHOICE", C 





281 

IF C-l 

THEN 1000 





282 

IF C-2 

THEN 5000 





284 

IF C-3 

THEN 2000 





286 

IF C-4 

THEN 3000 






288 IF C-5 THEN GOSUB 40j GOTO 200 
290 IF C-6 THEN GOSUB 501 GOTO 200 

294 IF C-7 THEN CALL 170468 PRINT FN*j CSAVE 

295 IF C»e THEN 1500 

296 MUSIC “7777-1 GOTO 200 

1000 CALL 17046sCU-512l GOSUB 20i PRINT "DATA ENTRY RROUTINE" 


1100 CU=*544i QOSUB 20 
1105 DA« (L, 1 >«” 

1110 INPUT ’’DATE ’%DA»(L,1> 

nil CH*<L,l)-“ " 

1H2 DE«(L,1)-" 

1113 DE»(L,24)»”»'’ 

1115 INPUT "DESCRIPTION", DE»<L, 1) 

1120 IF DE«<L,l)»"t**" THEN 200 

1125 INPUT "CHECK , CH* (L, 1 > 8 INPUT "SALE •",DP<L)J INPUT "MEMBER DUES’’,ME<L) 
1130 INPUT "REPAIR •-,OT<L>s INPUT "QFF.SUPPS 4",SU<L>: INPUT "INVENT PUR 6",?- 
(L)s INPUT "REPAIR PARTS ♦",EI<L>s INPUT "BENERAL 1 *",G1<L> 

1200 IF L-99 THEN INPUT "FILE FUCL",C: GOTO 200 
1210 L“L+lt GOTO 1000 

1500 CALL 1704&sCU=512: QOSUB 201 PRINT "FILE SORT ROUTINE" 

1505 PRINT "# OF RECORDS TO BE SaRTED*"5L 
1510 CU--576: QOSUB 20 

1515 PRINT "WHICH DO YOU WANT TO SORT ON?" 

1520 PRINT "1. DATE"! PRINT "2. DESCRIPITION" ! PRINT "3. CHECK «" 

1525 INPUT "CHOICE", C 
1530 IF C»1 THEN 1600 
1535 IF C“2 THEN 1700 
1540 IF C=3 THEN 1000 
1545 MUSIC "777’*l GOTO 1500 
1600 PRINT "DATE SORT" 

1610 FOR LL*1 TO L-1 

1615 IF DA* (LL, 1)<DA*<LL-1, 1 ) THENFL*li GOSUB 10 
1620 NEXT 

1625 IF FL-I THEN FL-01 GOTO 1610 
1630 GOTO 200 

1700 PRINT "DESCRIPITION SORT" 

1710 FOR LL=1 TO L-1 

1715 IF DE*(LL, 1><DE*<LL-1, 1> THEN FL-ls GOSUB 10 
1720 NEXT s IF FL«1 THEN FL-01 GOTO 1710 
1 730 GOTO 200 
1300 PRINT "CHECK ♦» SORT" 

1810 FOR LL-1 TO L-1 

ISIS IF CH*<LL,1)<CH»(LL-1,1) THEN FL-ls GOSUB 10 
1920 NEXT I IF FL-l THEN FL“0i GOTO 1810 
1 030 GOTO 200 

2000 CALL 17046lCU-512i GOSUB 201 PRINT "DATA DISPLAY ROUTINE" 

2100 FOR 1-0 TO L 

2105 CALL 170461 CU-512S QOSUB 20 

2110 GOSUB 60 

2160 IF KEY* <0)<>’”’ THEN 2160 
2170 NEXT I 

2200 INPUT "END OF FILE",Ci GOTO 200 

3000 CALL 17046s CU-512I QOSUB 201 PRINT "DATA PRINT ROUTINE" 

3004 INPUT "DO YOU WANT TO INCLUDE LAST TOTALS", FN* 

300B IF FN*-"Y" THEN 3030 

3010 TA(l)-0iTA<2)»0lTA<3)-0iTA<4>»0 

3011 TA(5>-0iTA<6>-0iTA<7)-0sTA<8)»0 
3014 GOTO 3090 

3030 INPUT "ENTER NEW TOTALS ",FN* 

3035 IF FN*-"N" THEN 3090 

3040 INPUT "AMOUNT ”,TA(l>i INPUT "SALE ",TA(2)s If^UT "DUES ",TA(3) 

3050 INPUT "REPAIR ",TA<4)s INPUT "OFF SUP ",TA(5)! INPUT "INV Pt^ ",7A<6> 


CHECK#”} 

REPAIR 


IN 


OFFICE 


SUPPLIES 


3060 INPUT "PARTS ",TA(7>» INPUT "BENERALi ”,TA<B> 

3090 PRINT «li PRINT CHR« <27)}"P" 

3093 PRINT TAB <3)>''DATE • DESCRIPITION 

3094 PRINT TAB (46) T'AMOUNT SALES MEMBER 

INVENT. REPAIR GENERALI" 

3095 PRINT TAB <46>;" DUES 

PARTS” 

PRINT s PRINT "BEQINNINB TOTALS”* TAB <4S)j 

PRINT USING 100,TA(1),TA(2>,TA<3),TA(4>,TA(5),TA<6)9TA<7>,TA(8) 

PRINT 

FOR I»0 TO L-i 

PRINT I+l}” "}DA»<I,1>| TAB < 10) j D£» < I , I > | TAB <35) | CH* ( I , 1 ) > TAB <43>} 
PRINT USING 100.AM<I),DP<I}*MG<I),OT<l>,SU(I>,MA<I).ei<l>,Gi(l) 

3132 TA<1)»TA<1)'^AM(I) iTA<2>-TAA(2>+DP{:>lTA(3>-TA<3>-*-ME<I> 

3134 TA<4)-TA<4)^0T<I) :TA<S)-TA<S>+SU(I)lTA<6)“TA(6>+MA(I) 

3136 TA<7)'-TA<7)+E1 (I) iTA<8)««TA<8)+Gl <1) 

NEXT I 

PRINT 8 PRINT 
PRINT ''TOTAL"; TAB (45) | 

PRINT USING 100,TA(1),TA(2>,TA<3),TA(4),TA<5>,TA(6),TA<7),TA<8) 

PRINT CHR* (12)8 PRINT -0i GOTO 200 
CALL 17046:CU*5l2l 60SUB 20i PRINT "EDIT ROUTINE" 

FOR 1-0 TO L-S 
CA;_L 17046ICU-S128 GOSUB 20 
GOSUB 60 


PUR 

3097 

3098 

3099 

3100 
3110 
3120 


3140 

3141 

3142 
3145 
3150 


5100 

5105 

5110 

5145 

5147 


PRINT "OK<Y/N) 
IF KEY* (0) 


"Y‘ 


5148 

IF KEY* (0)-“N" 

5149 

GOTO 5147 


5150 

CU-9601 

OOSUB 

20: 

5155 

CU-9601 

GOSUB 

208 

5160 

CU-960i 

GOSUB 

20* 

5165 

CU-960: 

GOSUB 

20: 

5170 

CU-9601 

GOSUB 

20: 

5175 

CU-960: 

GOSUB 

203 

5180 

CU-960: 

GOSUB 

20* 

5185 

CU-960* 

OOSUB 

20* 

5190 

CU-960: 

ecsuB 

20: 

5195 

CU-960: 

GOSUB 

20: 

5200 

CU-9601 

GOSUB 

20* 

5210 

GOTO 5: 

L05 



THEN NEXT 
THEN 5150 


GOTO 200 


INPUT "DATE ",DA*<I,1) 

INPUT "DESCRIPITION " , DE* ( I . S 
INPUT "CHECK # ",CH*(I,1> 
INPUT "AMOUNT *",AM<I> 

INPUT "SALES *",DP(I) 

INPUT "MEMBER DUES i6”,ME(i) 
INPUT "REPAIR IN •■‘,OT<I) 
INPUT "OFF SUPS *”,SU<I> 

INPUT "INVENT PUR *",MA(I) 
INPUT "REPAIR PARTS *",Ei<2) 
INPUT "GENERAL 1 »",Ql<I> 
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nn tis 
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imtuoi SIM 
nn 916 
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9 mumi 
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unit Jim 
nn 917 

msni uiuin 
mujy 
9 iimt 
9 nmi 


DUE TO THE COST OT WIIITIII6 TIC 
NWTAOS HE iriU HAVE TO ASK ANY- 
B09T THAT IS PU7TIN6 IH AN tt 
THAT THE PLEASE UNIT IT TO IN 
LINES ONLY. IF TW ICES MK 
POOR PLEASE MITE FON IVORNAT* 
ION ON nC COST OF FULL ON PART- 
IAL PAGE ADS. 

IfmiimittiHMflHINMIffMI 

WAIVI7- iODS 
RDfUN.THIS PNOSRAN NORINKRS ALL 
LINES IN A FASIC PROOIUN. Ml 
Lie REFERENCES ARE AB MKAO 
ALSO. FIRST NEK LIC IMKR M 
INCRENENT IS USER KFINCO.SII.N 
WNEY ORDER PIEASE.LOUIS KCNC 
ISfV-Ilf CH.Dtl CHATEAU, HULL, 
QUESEC, CANADA, 19A-1T3 

tttntTttttttttttMtttlttlMIttt 

E.T.-ffiLP E.T. SET THROWN THE 
FOREST TO SIS SPACE SHIP. II.M 
CHOPPER INTERCEPTOR-SHOIT AS 
NANY HaiCOPTERS AS YOU CAN ' 
KITH YOUR LASER. «8.lf 
EDDIE 6E9NAR 
I1W4 8R00KH00I NO. 

AUSTIN, TI TITS# 
tCHECK, HONEY ORDER ONLY* 
nmmmttmmtmmtum 

COPY NRITER: VERSATILE, EASY 11 
USE MRS PROCESSINO PROORAH IITN 
UPPER AND LONER CASE PRIMTlia. 
INSTANT CONVERSION TO lOICR CASE 
IN NACNie IAN5UA6E. IflCLUOES 
RELIADLE FIND m REPLACE EDIT 
FEAKiPE, DISK COrWHOS ANI 
CONPLETE DOCUNENTATION. STORES 
Ml LINES OF Of CNARACTERS ON 
16K. CONES NITH lAKL NRITER} 

A CONPANIIMi PROGRAA TI CREATC A 
NAILIKS LIST OF 14# - AN9 PRINT 
LABELS. BOTH PR06RANS FOR ON.r 
$19. ?3. SHIPPED SANE DAY NITN 
NOeY ORDER. INDICATE K CN IK. 
JIR aATFELTER, A4A CORNIN Kit 
SLENDALE, LM-IFIMIA 9I2M 

ME USED THE MinC nSflfWl TO K 
PART OF THIS laiTKS NEVSLITTER. 
DO NOT CONFUSE 17I1S PROORAN NITH 
ANY OTHER FOR OTHER COttPUTERS. 
THIS ONE MS VRITTEN FOR THE 
IN-l 

ttttttttttIttttIttlItttttItItBIt 

FOR SALE: APF IN-l CONPUTER NITN 
8X, TOP SECRET 300K, BASIC TUTOR 
SPACE DESTROYERS, PROA I TECH 
ASSIST HANUAL PLUS ABOUT 42f 
SOPTNARE IK. DEFENDER, ADVEN IN 
nURDER, an: OTHERS FROM If. R, 
$2«, RUTH STRZEPK, 199 RETWID 
ST., PLYNDUTK , PA IBiSI 


titttMtitmtnttttmttttmti 

INTRODUCING lALPKA CEXTURIONt 
IFAST ACTIONtARCADE OUALITYI 
SKtHI-RESTNACH LAKUAOEIMmE 
DIVING ALIENS AND SAVE TIC 
PLAHET HIJAR FRON DESTROCnW 
tEICELlENT GRAPHICStSWmiCIH 
(AND A^-irS) LOVE IT. CAiSETTE 
’PRICE-$13.93 (SHIP IKLUDD)* 
SEND DCCK OR HONEY ORDER TO: 
GEORGE KARADIN 
RB II BOX 447 
BELLE VERRON, PA ISII2 

THIS IS A GREAT PROORAH, IT IS U 

DESTROYERS EDITOR 

iiitttmmietittttittttmtm 

HISSION INPROBABLE SERIES 
OPERATION ALPHA-1« ADVENTURE $ 
OPERATION SRAVO-PK ADVENTURE 
111.95 (SRAFICSI 

BOTH PRBGRAI^ FOR $21.95(2 TAPES 
ALSO 

SUPER. 21--CASI80 (SOHE BRAFICS) 

$ 1^.91 

SPACE WNT-HUIVENTORE (W SRAFI- 
CS> $6.ef 

BOTH PROSRAHS FOR $9.93(1 TAPE) 
SEND CHECK: GEOSRAFII LTD. 

BOX 54 

ARRONSHITH, 11 41722 

NATH-RANjSET ALL THE DOTS BUT 
LOOK OUT FOR THE ’SATES’, THERE 
APE 4 CASES NITH RANDOH MTH PRO 
SLEHS (A NR0.y6 ANSWER WILL KIU 
YOU) GET INSIDE AND GAT THE VITA 
HINS. THIS GREAT GANG KILL IHPR 
OVE YOUR HATH ABILITY. $14.99 
SEND HO TO HILBERT VAIMZ 
555 ABERY AVE, LA PUENTE, 

CA 91744 

nutmmnmnmtummtt 

TH-i H/B91, R8K, SI 232, 

F! IM, EITRA BASIC CART., 

4 SAKE CART’S, BASIC TUTOR, 
lN-1 DICSNOSTIC t 12 HORE 
TAPE pens, ALL TECH HAN'JlW.S, 
LBLl, CDNPOSITE VIDEO OUTPUT. 
VALUE NEN IS MR $1,299 IN 
HARDWARE 4 SOFTHARE. TOTAL 
PACKAGE $49f.M 

T. CRONIN. (291)444-5929 AfT2:PH 


K7 FOLKS mi IS A LIST Of 

pmms im « mi mmULi 

OH Wl. IHIH ommi PLfASf 
SPlCUr JSl 2 UOl 103 MKJ 
OH lOUP. mpi FOP JHl 45.99. 

iHPHKS mm 

t- oipmi pmis#£9 

rm ii 

Cin-Fllti PP.OSPM 
H H: P.IS2" HI Pis HILPIP 
9 HI p.m- HI S£S HILPIS 

i m-sEC- m-oic / sec-w; 

HII$1C—-FBH PPOBPPH 
7AP£ ti 

I HElPlC-’HlTPKiSmi CMV 
SPEIL-‘G6HI PPOSPPH IH SflfMff 
I HI Pt$t-‘H1 «S «£IP£R 
5 PPJPJPP-IISl CPSSini FOP SATA 
HEPH—FIBSPl 7HE HIPH Of tt’S 
7PPE ii 

SLPCUK—SLPCmCK fiR« 

MPim— STATE CPPlJOL AWIfRS 
# fPOSSlP-SlKPLl !SJ BOOS Sm 
LUHPCH—SIIPLI L1771P IAC9IN£ 
70 LOSe—ilSPLPJS P1C7BPI 
7BPE ii 

i HPBKSO—BPPl 
m7lU—BPtl 
SP!PM2--<I]SSPL tlSPLH 
POmOB—SIPPLl TAX PMPMI 
flilDIORf— AUDIO PICeiDTSS PWB. 
7PPE 95 

19 * SSL71 PWf. £1. 

lOHnsr—mis ion of msi 

I LE1PPOS—L17JIP PPOSPPH 


7PPI fi 

EAL/ilT— WmATS «A£$ MS UTS 
PECIPIS---P.ICIPE PICOPS PPOSPM 
HP7H — 9ATI PPS6SPH 
SlP7SSB"-PLPrS S SlSfUl B BPT 
EHSLlSf—SWLl inSLlSI LISSOS 
70PE t7 

SHPHE — MDTKJf SfUF. 

AlPfAS —91 «£S PIPBP CtUPKIlP 
Hlt7lS7—smP1 TEST PR99AAI 
STROBE —LOTS OF FLPSH 8 POP 
lAPE iS 

t lHmi-‘7BH PP.6BP0H 

fop.cpsi--Faii ppmts 

scpEEH — sfiHi urn ppoem 

HP7CHES—1S IATC9£S,,,f« 
so ADDT---9ASIf SR MAT 
TAPE 99 

I spACioi-spAci iou sm 

HI P£SY— II «S flLPlP PM9MI 

TAPfCAi— MPf mnoe mstp* 

MAPPTC— MTU SSAP;r A BlSPLSr 
S mPSS-BPK 


3 DIM Aii(l> 

S DIM B*<2) 

10 CALL 17046 

20 POKE 24578,36 

30 POKE 40960,21 POKE 40961,560 

40 PRINT "SKETCH PAD" 

50 PRINT s PRINT 

60 PRINT "RIGHT PADDLE DRAWS HORIZONTALS AND VERTICALS" 

70 PRINT t PRINT "LEFT PADDLE DRAWS DIAGONALS" 

00 PRINT s INPUT "PRESS RETURN FOR MORE ”,M 

90 CALL i7046s POKE 40960,2* POKE 40961,544 
100 PRINT "TO ERASE PRESS 'F' ON MAIN UNIT" 

105 PRINT "THEN BACK OVER PART TO ERASE" 

110 PRINT { PRINT "TO RETURN TO SKETCHING PRESS ’R’ ON MAIN UNIT" 
115 PRINT 

120 PRINT "TYPE ’S’ ON MAIN TO SAVE ON CAS" 

122 PRINT 

130 PRINT s INPUT "PRESS RETURN FOR MORE ",M 

140 CALL 17046* POKE 40960,2* FuKE 40961,576 

170 PRINT t PRINT "TO EXIT PROGRAM PRESS ’Q’ ON MAIN UNIT" 

1B0 PRINT * INPUT "PRESS RETURN TO BEGIN ",M 

190 CALL 17046; POKE 40960,2* POKE 40961,576 
200 PRINT "FOR HELP TYPE ’H'" 

205 PRINT " " 

210 PRINT s PRINT « INPUT "CHOOSE A COLOR < 0 — 7 }",C 
240 H-0;V=7 

250 CALL 17046 

251 COLOR «2* SHAPE =15 

252 FOR 1-0 TO 15 

253 HLIN 0,31,1 

254 NEXT I 

260 COLOR -C 

270 IF CODE-1 THEN B02 

271 PLOT H,V 


272 

IF 

KEY* 


THEN 

MUSIC "7" 

275 

IF 

KEY* 

<2><>" " 

THEN 

MUSIC "7" 

260 

IF 

KEY* 

(0)0"" 

GOTO 

600 

290 

IF 

KEY* 

(1)-"E" 

THEN 

IF H>31 THEN H-31* GOTO 350 

295 

IF 

KEY* 

<1)="W" 

THEN 

H-H-1* IF H<0 THEN H-0s GOTO 350 

300 

IF 

KEY* 


THEN 

V-V-l* IF V<0 THEN V-0* GOTO 350 

305 

IF 

KEY* 


THEN 

V*V-t-li IF V>14 THEN V-14* GOTO 350 

350 

IF 

KEY* 

<2>-"N" 

THEN 

H=H-lsV»V-i; IF H<0 THEN H-0: IF V<0 THEN V-03 GOTO 2 

70 

360 

IF 

KEY* 

(2>-"E" 

THEN 

H*H+1*V»V-1; IF H>3i THEN H-31s IF V<0 THEN V-0i GOTO 

270 

370 

IF 

KEYS 

(2)="W" 

THEN 

H-H-ij V-V+ls IF H<0 THEN H«0l IF V>14 THEN V-14l GOTO 

270 

380 IF KEYS 
TO 270 

390 GOTO 270 

(2>»"S’‘ 

THEN 

H-H-M:V-V+1; IF H>31 THEN H-3li IF V>14 THEN V-14s 60 

600 

IF 

KEY* 

<0>«"S" 

GOTO 

650 

605 

IF 

KEY* 

(0>-"C" 

THEN 

POKE 40960,01 POKE 40961,01 END 

620 

IF 

KEY* 

<0)»"F" 

GOTO 

800 

630 

IF 

KEY* 


THEN 

GOTO 10 

645 

MUSIC "!• 

'* GOTO 

270 


650 

6S2 

655 

660 

POKE 40960,0* POKE 40961,0 

CALL 34040 

CALL 34138 

CALL 34061 


665 

POKE 24578,38 



670 

CALL 17046 



675 

POKE 40960,2: POKE 40961,5: 

678 

PRINT "S 

K E T 

C H J 

3 A V 

680 

FOR 1=1 • 

TO 300: 

NEXT : 

I 

690 

CALL 17046: GOTO 210 


700 

IF KEY* 

<0)=" " 

GOTO 710 

705 

GOTO 700 




710 

IF KEY* 

<0)<>** 

■’ GOTO 

712 

711 

GOTO 710 




712 

B*= KEY* 

<0) 



713 

IF B*='‘0 

THEN 

COLOR 

-0 

714 

IF B*»‘*l 

" THEN 

CCS-OR 

= 1 

715 

IF BS=''2 

’■ THEN 

COLOR 

-2 

716 

IF B*«*'3 

“ THEN 

COLOR 

=3 

717 

IF 

" THEN 

COLOR 

=4 

718 

IF B*=”5 

■■ THEN 

COLOR 

=5 

719 

IF B*=”6 

■* THEN 

COLOR 


720 

IF B»='’7 

•• THEN 

COLOR 

=7 

721 

MUSIC "*5’’ 



722 

IF KEY* 

<0)<>'* 

THEN 

722 

727 

GOTO 270 




728 

B** KEY* 

(0> 



729 

FOR I«0 

TO 15 



730 

IF ASC 

(B«>- ASC <I> 

THEN 

731 

FOR T»1 

TO 15: 

NEXT T 


732 

NEXT I 




733 

GOTO 270 




800 

CODE«l 




802 

COLOR - 2 . 




804 

PLOT H,V 




806 

COLOR =C 




808 

PLOT H,V 




810 

COLOR =2 

: PLOT 

H, V 


820 

IF KEY* 

(0>=‘‘R" GOTO 

640 

825 

GOTO 271 




840 

CODE=0: COLOR =C 

:: GOTO 

270 


MUSIC "» 


LONEUV COnPUTCRB 


1 REM “HERE IS A SIMPLE TARGET GAME" 

2 DIM Fft(n 

3 poke' 24578, S'? 

5 S*4S 

6 T«-48 

7 U«0 

9 RESTORE 

10 CALL 17046 
20 GOTO 100 
30 GOTO 200 
40 UbO-*-! 

42 IF U=2S THEN 60 
44 GOTO 10 

60 F»« KEY* <2>* IF F«*"9“ THEN 3 
70 GOTO 60 

100 REM FLY GENERATOR 
110 D= INT (544+64* RND (0)) 

120 POKE Dp 42 
1 30 GOTO 30 

*200 REM LIZARD GENERATOR 

210 A=992 
220 POKE A, 25 
225 POKE A- 1,32 
230 IF A-1023 THEN A*992 
240 A=A+1 

405 F*- KEY* <1): IF F»«"'" THEN 600 

430 JF A*1023 THEN 500 

440 GOTO 220 

500 REM 

530 GOTO 40 

600 REM TONGUE ROUTINE 

605 C>0 
650 REM 

660 IF A-C-33“D THEN 750 

664 POKE 960, T 

665 POKE 961,S 

666 POKE A-C-1,9 
668 C*C+32 

670 POKE A-C-1.25 

675 POKE A- I, 30 

680 IF A-C<»575 THEN 800 

700 GOTO 650 

750 S=S+l 

751 MUSIC "123123" 

752 IF S«5e THEN 760 

753 GOTO 40 

760 S«=48 

761 T«T+l 

764 IF T*58 THEN T*S-48 
766 GOTO 40 
800 GOTO 40 



DR., n, VA 22f3] 

I W A COPUIEA MSIGIMMEA 
MALYST IV NnFESStOi. I M 


IICKSTE3 in HtVOmKS IA1B.T. 

BAVI8 ffiWT , 5«-?l7l , 

SILVER SMtlKS , ftWYUWS.. 

COULD MV tff OMCK II THE 
MSHIWTOM, e.C. AREA we MS M 
EPSON Nl-H PtIRTER CORTACT K. 

mmiiiinziiiiv.miiiraim 

DAVID VILLIM JMCK, ST MMtT 
M, CHEEKTOMSA, It 1A225 
t Afl A MR RADIO (TIICATEIC) 
ASTR0N0;i£R, PROFESSIOML OMI, 
AND LIKE TO «AK£ PEOPLE HAPPY, 
LIKE TIKKERIHS KITH U IWTE W I 
SAD5ETS, LIKE TO IMTOFAd U-1 
KITH HM MDID. 

(l&lUUllUaAiAHcAkLMUUUA 
STEVE VEEHElWt, 2»A ■ MlOfU 
APT F, AALIKTON KTS, 111 UM4 
312-577-lf8< 

ELECTRONICS TECH, IITEttSTD II 
FORTH, LISP, K. MVE Flfi-fWTI 
RUHNIK ON ttf APf IK-1. «.» 
KROTE SNART TERNIUL PKOMAHOlt 
TO CAPTIRE TEIT FKM HOKH » 
STORE IT ON CASSETTE « SRI TO 
PRINTER. USE TELEPHOC KUOriR 
BOARDS A LOT. 


KILEPT VAIACZ, RS AKAY. 

LA PICKTE, CA fl744 

2l3-?45-W47 

rn cuTPEKTLY m mots 

EDUCATiOML PtOORAM SUCH AS 
ALSEBAA, OEOfETWY, TRIO, PNY1ICS 

TIN ntONIN, 33 KA80 AVC. 
KALDKICK, I.J 


PHILTP lESBI,m FOREST AV KIS 
hMiLTOR orr. in ti7 
CAMM!!!!!!! I NOR AT STEUO 
AS A OtANENW. CRUTEK m 

A HOBBY. 


HARDWARE 


129.0# 


149.0§ 


RETAIL 
PRICE 

23K APF IM-1 COMPUTER «59?.ge 

INCLUDES BYTES RGN KITH BASIC BUILT IN, 9«#« S^TES USER RAH, COLOR, SOUND. PROFESSIONAL 
53 KEYBOARD, 2 SANE CONTROLLERS. 2 If KEY NUflERIC PADS, HISH SPEED CASSETTE. A.C. ADAPTER, R.F. 
RODULATW, i.V. SKITCH BOL ACCEPTS TAPE-DISK-PLUS IN CARTRIDEES IT IS PLUG'IN EXPANDABLE. 9# DAYS 
PARTS AND LABOR WRRANTY, OKNERS SLIDE, SASIC LANSUASE RANL'AL, BEAUTIFUL BLACK 4 KHITE CONSOLE. 

23K APF IM-1 COMPUTER FACTORY PACK imJS 

EVERYTHINS YOU SEI FOR 1239. Dr PLUS 'SASIC TUTOR’, ‘PROOfiANRINS AND TECHNICAL ASSISTANCE RANUAL" 

AND "SPACE DESTROYERS* PfiCSRAN TAPE. 

BS-1 BUILDING BLOCK INTERFACE 

THIS PLUS IN INTERFACE ALLOKS YOU TO USE THE 23K !--! TO ITS FULLEST DEGREE. IT CONTAINS 4 
UNIVERSAL PORTS TO ABDs RAM HENORY, PRINTERS, TELEPHONE NQDEH. FLOPPY DISK DRIVES. 

3K RAM EXPANSION ' 

PLUS irO 5B-i TO INCREASE RAN HEffORY 8192 BYTES. 

SI-232 SERIAL INTERFACE 
PLUS INTO 3B-1 TO CONNECT PRINTERS AND TELEPHONE flODENS. 

FI-100 DISK INTERFACE 
PLUG INTO BB-1 TO ALLOK CONNECTION OF D-lff DISK DRIVE. 

MINI- FLOPPY DISK DRIVE 
PLUGS INTO FMff TO SIVE 72m ADDITIONAL BYTES OF STCRASE. 

PROGRAMMING AND LANGUAGE AIDS 
BASIC TUTOR. 4' 

THIS r-RG8P.AN INCLUDES 2 TAPE ’fiOSRANS KITH A 243 PAGE "ANUAL-TEACHES YOU H08 TO USE THE SIHPIIF- 
lED BASIC. FCR BEGINNERS AND F-RCFSSSIONALS. 

PROGRAMMING AND TECHNICAL MANUAL 
!?? =A3ES COVERING SRAPNICS, HEHCPY NA°5. ''A.CHINE LANSUASE, SCHESATICS AND PARTS LISTS. 
o930 MACHINE LANGUAGE EDITOR AND ASSEMBLER 
HIS DISK IS A WST FOR ANYSCDY KANTISS TO PROSRAN IN NACHINE LAN6UA5E. 

6300 MACHINE LANGUAGE DISASSEMBLER 
THIS DISK ENHANCES CREATION AND DEBU6SIHG f1.ACHINE LANSUASE. 

DISK COPIER PROGRAM ALLCiS VIHJ TO COPY ANY DISK BUILT OH THE IH-I. 

PROGRAM TAPES 
ELECTRONIC FILES 


CLUB 

PRICE 


•^< 7,00 


% i 


4I?9.ff 449.M nt 


149,00 


599.00 


69.00 lit 
69.00 tU 

69.00 ttt 

349.00 tt 


19.95 


59.95 




19.95 


19.95 


29.95 


THIS IS A CQflPUTER FILINS SYSTEH THAT ALLOKS YOU TO KEEP TRACK OF NAWES, ADDRESSES AND OTHER RECORDS. 


26.95 
13.45 

8.95 

17.95 


BAR CHARTS COLOR CHARTS FOR CQilPARISONS. 
typing tutor learn TO TYPE AT YOUR OKN SPEED, UHIfiUE PR08RAH. 
CHECK BOOK BUDGET MANAGER 
PASTER »AY TO BALANCE YOUR CHECKBOOK AND KEEP TAX RECORDS. 

BUDGET MANAGER 

DAY a DAY, KEEK DY KEEK. 3 CATEGORIES, FOOD, flEDICAL, AUTO 

FERSCJNAL BUSINESS MACHINE 


19.95 

29.95 

39.95 


13.45 

17.95 

17.95 


calculate loans, INTEREST, PRINCIPAL PAYMENTS, LOAN PAYREHTS.ETC 
BI'-LBOARD GREAT FOR CREATING MESSAGES IN COLOR, SOUND i GRAPHICS. 
SPACE SIZE & SURFACE GUIDE 
SKEAT FOR HONE INPROVEOT3, FIBURE VDUR NATERIAL SEEDS. 

MATH TUTOR GREAT FOR I’-PROVINS YOUR HATH SKILLS 
THE WORD FACTORY 

A SPE,L!NS SANE THAT’S FUN-SPELL HAHE OF OBJECT PICTURED. 

SPELLING DUEL 

CHALLENGING AND EDUCATIONAL. CONBINATION SPELLING AND CROSSNORD. 

JUMBLED UP THINGS 
CREATE NORDS FRON JUHBLED UP LETTERS AGAINST THE CLOCK. 

PERCEPTION LEARHING SANE-IHPROVES YOUR ABILITY TO SOLVE PRMLENS. 
ARTIST AND EASEL 

GREAT COLOR ART PROGRAN FOR THOSE NHO LIKE TO PAINT, DOODLE. 

MUSIC COMPOSER 

PRACTICE ON KEYBOARD, SELECT KEY AND TEMPO, NRITc A TUNE AND RECORD IT. 

SPACE DESTROYERS HOST POPULAR SPACE BANE PLAYED. 

GAME CARTRIDGES 

HANGMAN TIC-TAC-TOE, DOODLE. 2 GAMES PL'JSSLECTRONIC AR^ OF DOODLE. 
SHOOTING GALLARY BRICKCONN- IT TAKES GOOD SHOOTING AND STEADY AIN. 
PI NBAL BLOCKOUT,DUHSEON HUNT, ELECTRONIC FLIPPERS AND TRICKY BALL SPEED. 
CASINO ROULETTE, KENO, SLOT NACHINE. 

BLACK JACK GREAT PRACTICE 
BASEBALL THE GREAT AHERICAN PASTIME. 

BOXING FEATURES 2 BOXERS 
BACKGAMON ANCIENT AND POPULAR SAW. 

CATENA PLAYS LIKE OTHELLO AND IS HARD TO BEA^ 


13.45 

17.95 


13,45 

17.95 


29.95 


13.45 

17.95 


19.95 

19.95 

19.95 

19.95 

19.95 

19.95 

19.'’5 

19.95 

19.95 


13.45 

13.45 

13.45 

13.45 

13.45 

13.45 

13.45 

13.45 

13.45 


ALL ORDERS MILL BE EITHER PREPAID NITH CHECK OR MONEY ORDER DR THEY MILL BE SHIPPED COD. 

I = 155.00 SHIPPING ♦ 15.00 COD. U = *10.00 SHIPPING ^ 45.00 CCD. 

W ‘ *5.00 SHIPPING ♦ *3.00 CQD.II0ALL GAMES AND PROGRAMS ARE I2.ff SHIPPING ♦ t2.9t COD. 
ALL ITEMS SUBJECT TO AVAILABILITY 
FIRST COME FIRST SERVE ON ALL ORDERS. 


RETAIL CLL‘S 
PRICE PRICE 

GENINI-10 PRINTER «<99.95 1399.95 

SUPERIOR eURLITY IS THE HALLHftRK OF EVERY STAS PRINTER. OUftLITY fiSEURES YOU OFs 

IlM CHARACTERS PER SECOND, ik THRUPUT TINE OF « LPN-VIRTUALLY A PASS A HINUTE-AT 31 COLS. 

1919 DOT MTRIKNITH TRUE LONER CAS: KSCENDERS?,«I*DIRECTIONAL SHORT LISE LOSIC SEEKIMS CARRIA8E CONTROL. 
ISPECIALiZED PfiINTlS5-SUPER/SU8SCRIPT, UNDERLIES, BACKSPACINS,DOULBE STRIKE NODE, ENPASIZED PRINT. 

I2.3K BUFfERINITH AN ADDITIONAL « OPtlCSAD.JINTERNATIDNAL CHARACTER SETS,?? BIi-'S SIT SWITCH 
SaSCTABLE INTERFACE. TRISHT k LEFT HAND NARSlN SETS.ICOLUHN SCANBIT ISA6E BRAPHICS.tDATA TRANSFER 
RATE-94W BRSIWITH SERIAL UNITI.ITAS SETTINS ABILITY.iBOTTON PAPER FE£D,I2K USER PRQ6 RAHHABlE RON 
FOR SPECIAL CHARACTERS. I ttA USEft REPLACABLE PRINT HEM, 
tPAPER ROLL HOLDER, 13 WAY PAPER HANDLINfilTRACTOR, ROLL i COT SHEETS, lillSIt 

GEMINI -15 PRINTER 9699.95 *549.95 

THIS UNIT HAS THE SANE FEATURES AS THE GEMINI -10 EtCEPT IT CAN USE UP TO 15 INCH WIDE PAPER. 

MODEM SIGNALMAN MARK 1 *199.95 *129.95 

lOISECT CONNECT W/R3232C INTERFACE, tBUILT IN CASIE.IINTERNAL 9yBATTERY (WALL PLUS 99 DC AVAIL.), 
tAUDIBLE CARRIER DETECT, 8AUTO 0RI61NATE/ANSWER NODE. IDATA/VCICE SWITCH, JBELL 183 CONPATIBLE, 
tSHAUEST NODEH AVAILABLE, ILOW-BATTERY INDICATOR, ICONNECT TO ANY PHONE WITH PLUS-IN HANDSETilt* 

PLEASE ALLOW 4 TO 6 WEEKS FOR DELIVERY, IF WE ARE OUT OF 
STOCK WE WILL NOTIFY YOU. 


I«-l in a MILLION 

PO BOX Mli 
SPBIN6DALE 
ARKANSAS 72764 



I3S3 


